unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls;

type

  { TForm_Main }

  TForm_Main = class(TForm)
    Button_StartClient: TButton;
    Button_StartServer: TButton;
    Edit_LocalName: TEdit;
    Edit_ServerAddr: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Memo_ServerIPAddr: TMemo;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    procedure Button_StartClientClick(Sender: TObject);
    procedure Button_StartServerClick(Sender: TObject);
    procedure Edit_LocalNameChange(Sender: TObject);
    procedure Edit_ServerAddrChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private

  public

  end;

var
  Form_Main: TForm_Main;

implementation

{$R *.lfm}

{ TForm_Main }

procedure TForm_Main.Button_StartServerClick(Sender: TObject);
begin

end;

procedure TForm_Main.Edit_LocalNameChange(Sender: TObject);
begin

end;

procedure TForm_Main.Edit_ServerAddrChange(Sender: TObject);
begin

end;

procedure TForm_Main.FormCreate(Sender: TObject);
begin

end;

procedure TForm_Main.Button_StartClientClick(Sender: TObject);
begin

end;

end.

